FM Towns: Free Software Collection 6

home *** CD-ROM | disk | FTP | other *** search

/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / defgen / defgen05.bas < prev next >

Wrap

BASIC Source File | 1993-07-08 | 37KB | 955 lines

100 ' CATLOG.DEF GENERATOR 200 ' SAVE "DEFGEN05.BAS",A 300 ' Author -- Tomoya Andoh -- NIFTY-Serve ID PED00201 400 ' 500 ' Ver. 0-1 --- Date 17 Jan.1993 510 ' Ver. 0-2 --- Date 29 Jan.1993 520 ' Ver. 0-3 --- Date 1 Feb.1993 530 ' Ver. 0-4 --- Date 14 Feb.1993 540 ' Ver. 0-5 --- Date 19 Feb.1993 542 ' Ver. 0-5a --- Date 21 Feb.1993 544 ' Ver. 0-5b --- Date 24 Feb.1993 600 ' 700 ' 800 ' 1000 ON ERROR GOTO *エラーやで 1050 DEFINT A-Z 1100 DIM CMD$(100),MES$(100),DF$(100),MOT$(200),Y_N_FLAG(100) 1150 VER$="v0.5" 1200 SCREEN@ 2 1250 WIDTH 0,25 1300 WINDOW 1350 PALETTE 1400 CONSOLE 2,21,2 1450 GOSUB *パレット設定 1500 COLOR 7,%200,,0 1550 CLS 1600 GOSUB *開始画面設定 1650 GOSUB *コマンドリストREAD 1700 GOSUB *元DEFファイル読み込み 1710 GOSUB *強制サポートセット 1750 ' FOR I=0 TO 50:PRINT USING "###:@";I,DF$(I),:NEXT I:A$=INPUT$(1) 1800 ' 1850 '文字定数定義 1900 TB$=CHR$(&H09) 1950 'マウス設定_0 2000 MOUSE 0 2050 MOUSE 4,5*8-2,1*19,75*8+2,24*19 2100 ON MOUSE(2) GOSUB *左クリック_0 2150 MOUSE(2) ON 2200 *LOOP_0 2250 LOCATE 18,22 : PRINT "マウス左クリックで次にすすみます"; 2300 WAIT 36 2350 LOCATE 18,22 : PRINT " "; 2400 WAIT 12 2450 GOTO *LOOP_0 2500 *次頁 2550 'マウス設定_1 2600 ON MOUSE(2) GOSUB *左クリック 2650 ON MOUSE(4) GOSUB *右クリック 2700 MOUSE 1,10,10,1 2750 GOSUB *設定画面表示 2800 MOUSE(2) ON 2850 MOUSE(4) ON 2900 *LOOP : GOTO *LOOP 2950 *終了処理 3000 MOUSE 5 3050 IF R_CODE THEN 3100 GOSUB *更新処理 3150 ELSE 3200 GOSUB *中断処理 3250 ENDIF 3300 PALETTE 3350 PLAY OFF 3400 CONSOLE 0,25,0 3450 COLOR 7,0,7,0 3500 CLS 3550 END 3600 *左クリック 3650 MOUSE(2) OFF 3700 SX=MOUSE(0) : SY=MOUSE(1) 3750 WX=SX \ 8 : WY=SY \ 19 3800 PLAY "N"+STR$(WY+48) 3850 ' LOCATE 45,20 : PRINT USING "SX=#### SY=#### WX=#### WY=####";SX,SY,WX,WY 3900 'Y=1 終了処理 3950 IF SY>=19 AND SY<=36 THEN 4000 IF SX>=502 AND SX<600 THEN R_CODE=-1 : RETURN *終了処理 4050 IF SX>=198 AND SX<=312 THEN R_CODE=0 : RETURN *終了処理 4100 ENDIF 4150 IF PAGE=3 THEN *左クリック_2 4200 'Y=3 入力 4250 IF SY>=57 AND SY<=74 THEN J=100 : GOSUB *キー入力 4300 'Y=4 出力 4350 IF SY>=76 AND SY<=93 THEN J=1 : GOSUB *キー入力 4400 'Y=5 TMP 4450 IF SY>=95 AND SY<=112 THEN 4500 J=3 4550 IF SX>=70 THEN GOSUB *キー入力 4600 IF SX<=64 THEN GOSUB *ON_OFF 4650 ENDIF 4700 'Y=7 検索 4750 IF SY>=133 AND SY<=150 THEN 4800 J=16 4850 IF SX>=70 THEN GOSUB *キー入力 4900 IF SX<=64 THEN GOSUB *ON_OFF 4950 ENDIF 5000 'Y=8 No検索 5050 IF SY>=152 AND SY<=169 THEN 5100 J=15 5150 IF SX>=70 THEN GOSUB *キー入力 5200 IF SX<=64 THEN GOSUB *ON_OFF 5250 ENDIF 5300 'Y=10 メッセージ出力 5350 IF SY>=190 AND SY<=207 THEN 5400 J=0 5450 IF SX>=70 THEN GOSUB *キー入力 5500 IF SX<=64 THEN GOSUB *ON_OFF 5550 ENDIF 5600 'Y=12 TMPO-SIZE 5650 IF SY>=228 AND SY<=245 THEN 5700 J=17 5750 IF SX>=70 THEN GOSUB *キー入力 5800 IF SX<=64 THEN GOSUB *ON_OFF 5850 ENDIF 5900 'Y=13 MOJI-SIZE 5950 IF SY>=247 AND SY<=264 THEN 6000 J=36 6050 IF SX>=70 THEN GOSUB *キー入力 6100 IF SX<=64 THEN GOSUB *ON_OFF 6150 ENDIF 6200 'Y=15 インデックスモード 6250 IF SY>=285 AND SY<=302 THEN 6300 J=2 6350 IF DF$(2)=":2" AND SX>=190 AND SX<=288 THEN 6400 DF$(2)=":1" : GOSUB *SW2 6450 ENDIF 6500 IF DF$(2)=":1" AND SX>=294 AND SX<=392 THEN 6550 DF$(2)=":2" : GOSUB *SW2 6600 ENDIF 6650 ENDIF 6700 'Y=16 メールの扱い 6750 IF SY>=304 AND SY<=321 THEN 6800 J=4 6850 IF Y_N_FLAG(J)=0 AND SX>=294 AND SX<=328 THEN GOSUB *オプション選択 6900 IF Y_N_FLAG(J)=1 AND SX>=334 AND SX<=384 THEN GOSUB *オプション選択 6950 ENDIF 7000 'Y=17 新ファイル作成条件 7050 IF SY>=327 AND SY<=340 THEN 7100 IF SX>=38 AND SX<=240 THEN J=37 : GOSUB *オプション選択 7150 IF SX>=254 AND SX<=512 THEN J=38 : GOSUB *オプション選択 7200 ENDIF 7250 'Y=19 オプション 7300 IF SY>=361 AND SY<=378 THEN 7350 IF SX>=38 AND SX<=328 THEN J=32 : GOSUB *オプション選択 7400 ENDIF 7450 'Y=20 オプション 7500 IF SY>=380 AND SY<=397 THEN 7550 IF SX>=38 AND SX<=328 THEN J=39 : GOSUB *オプション選択 7600 IF SX>=358 AND SX<=552 THEN J=29 : GOSUB *オプション選択 7650 ENDIF 7700 'Y=21 オプション 7750 IF SY>=399 AND SY<=416 THEN 7800 IF SX>=38 AND SX<=200 THEN J=20 : GOSUB *オプション選択 7850 IF SX>=214 AND SX<=376 THEN J=22 : GOSUB *オプション選択 7900 IF SX>=390 AND SX<=552 THEN J=24 : GOSUB *オプション選択 7950 ENDIF 8000 'Y=22 オプション & 次頁 8050 IF SY>=418 AND SY<=435 THEN 8100 IF SX>=38 AND SX<=200 THEN J=21 : GOSUB *オプション選択 8150 IF SX>=214 AND SX<=376 THEN J=23 : GOSUB *オプション選択 8200 IF SX>=390 AND SX<=552 THEN J=25 : GOSUB *オプション選択 8250 IF SX>=566 THEN PAGE=3 : GOSUB *設定画面2 8300 ENDIF 8350 MOUSE(2) ON 8400 RETURN 8450 *左クリック_2 8500 'Y=3 中断 & 続行 8550 IF SY>=57 AND SY<=74 THEN 8600 IF SX>=38 AND SX<=312 THEN 8650 IF Y_N_FLAG(7)=0 AND Y_N_FLAG(8)=1 THEN 8700 J=8 : GOSUB *オプション選択 8750 ENDIF 8800 J=7 : GOSUB *オプション選択 8850 ENDIF 8900 IF SX>=326 AND SX<=600 THEN 8950 IF Y_N_FLAG(7)=1 AND Y_N_FLAG(8)=0 THEN 9000 J=7 : GOSUB *オプション選択 9050 ENDIF 9100 J=8 : GOSUB *オプション選択 9150 ENDIF 9200 ENDIF 9250 'Y=4 All_Yes,All_No & All引用 9300 IF SY>=76 AND SY<=93 THEN 9350 IF SX>=38 AND SX<=224 THEN 9400 IF Y_N_FLAG(9)=0 AND Y_N_FLAG(10)=1 THEN 9450 J=10 : GOSUB *オプション選択 9500 ENDIF 9550 J=9 : GOSUB *オプション選択 9600 ENDIF 9650 IF SX>=238 AND SX<=416 THEN 9700 IF Y_N_FLAG(9)=1 AND Y_N_FLAG(10)=0 THEN 9750 J=9 : GOSUB *オプション選択 9800 ENDIF 9850 J=10 : GOSUB *オプション選択 9900 ENDIF 9950 IF SX>=430 AND SX<=600 THEN J=26 : GOSUB *オプション選択 10000 ENDIF 10050 'Y=5 DON作らない,静かに,だまれ 10100 IF SY>=95 AND SY<=112 THEN 10150 IF SX>=38 AND SX<=216 THEN J=13 : GOSUB *オプション選択 10200 IF SX>=230 AND SX<=408 THEN J=5 : GOSUB *オプション選択 10250 IF SX>=422 AND SX<=600 THEN J=6 : GOSUB *オプション選択 10300 ENDIF 10350 'Y=7 全ファイル検索 10400 IF SY>=133 AND SY<=150 THEN J=14 : GOSUB *オプション選択 10450 'Y=8 サブディレクトリ内無視 10500 IF SY>=152 AND SY<=169 THEN J=30 : GOSUB *オプション選択 10550 'Y=10 yymmdd以降&以前収集 10600 IF SY>=190 AND SY<=207 THEN 10650 IF SX<=64 THEN J=18 : GOSUB *ON_OFF 10700 IF SX>=70 AND SX<=312 THEN J=18 : GOSUB *キー入力 10750 IF SX>=326 AND SX<=352 THEN J=19 : GOSUB *ON_OFF 10800 IF SX>=358 AND SX<=600 THEN J=19 : GOSUB *キー入力 10850 ENDIF 10900 'Y=11 ＩＤ収集 10950 IF SY>=209 AND SY<=226 THEN 11000 J=35 11050 IF SX<=64 THEN GOSUB *ON_OFF 11100 IF SX>=70 THEN GOSUB *キー入力 11150 ENDIF 11200 'Y=12 整理済ログからＩＤ収集 11250 IF SY>=228 AND SY<=245 THEN 11300 J=46 11350 IF SX<=64 THEN GOSUB *ON_OFF 11400 IF SX>=70 THEN GOSUB *キー入力 11450 ENDIF 11500 'Y=14 今日より古いﾌｧｲﾙの削除,ﾌｫｰﾗﾑﾄｯﾌﾟﾗｲﾝ削除 11550 IF SY>=266 AND SY<=283 THEN 11600 IF SX>=38 AND SX<=312 THEN J=27 : GOSUB *オプション選択 11650 IF SX>=326 AND SX<=600 THEN J=40 : GOSUB *オプション選択 11700 ENDIF 11750 'Y=15 削除した発言の表題を表示 11800 IF SY>=285 AND SY<=302 THEN 11850 IF SX>=38 AND SX<=312 THEN J=41 : GOSUB *オプション選択 11900 ENDIF 11950 'Y=16 削除から除くファイル名 12000 IF SY>=304 AND SY<=321 THEN 12050 J=28 12100 IF SX<=64 THEN GOSUB *ON_OFF 12150 IF SX>=70 THEN GOSUB *キー入力 12200 ENDIF 12250 'Y=18 凍結しながら実行,ﾛｸﾞ表示しながら実行 12300 IF SY>=342 AND SY<=359 THEN 12350 IF SX>=38 AND SX<=328 THEN J=33 : GOSUB *オプション選択 12400 IF SX>=342 AND SX<=600 THEN J=31 : GOSUB *オプション選択 12450 ENDIF 12500 'Y=19 CATLOG生成ﾌｧｲﾙからｲﾝﾃﾞｯｸｽ作成,ID/ﾊﾝﾄﾞﾙ対応ﾌｧｲﾙ作成 12550 IF SY>=361 AND SY<=378 THEN 12600 IF SX>=38 AND SX<=328 THEN J=44 : GOSUB *オプション選択 12650 IF SX>=342 AND SX<=600 THEN J=45 : GOSUB *オプション選択 12700 ENDIF 12750 'Y=20 ﾌｧｲﾙと会議室対応ﾌｧｲﾙ作成 12800 IF SY>=380 AND SY<=397 THEN 12850 J=43 12900 IF SX<=64 THEN GOSUB *ON_OFF 12950 IF SX>=70 THEN GOSUB *キー入力 13000 ENDIF 13050 'Y=21 DL出力ﾄﾞﾗｲﾌﾞ･ﾃﾞｨﾚｸﾄﾘ 13100 IF SY>=399 AND SY<=416 THEN 13150 J=42 13200 IF SX<=64 THEN GOSUB *ON_OFF 13250 IF SX>=70 THEN GOSUB *キー入力 13300 ENDIF 13350 'Y=22 FAPXﾛｸﾞ保存ﾓｰﾄﾞ,前頁 13400 IF SY>=418 AND SY<=435 THEN 13450 J=47 13500 IF SX<=64 THEN GOSUB *ON_OFF 13550 IF SX>=270 AND SX<=336 AND DF$(J)=":2" THEN DF$(J)=":1" : GOSUB *SW47 13600 IF SX>=350 AND SX<=416 AND DF$(J)=":1" THEN DF$(J)=":2" : GOSUB *SW47 13650 IF SX>=566 THEN 13700 PAGE=2 13750 GOSUB *設定画面1 13800 ENDIF 13850 ENDIF 13900 MOUSE(2) ON 13950 RETURN 14000 *右クリック 14050 R_CODE=0 14100 RETURN *終了処理 14150 *左クリック_0 14200 MOUSE(2) OFF 14250 PAGE=PAGE+1 14300 RETURN *次頁 14350 *オプション選択 14400 GOSUB *設定変更 14450 GOSUB *DISP_COM 14500 RETURN 14550 *ON_OFF 14600 IF Y_N_FLAG(J)=1 THEN Y_N_FLAG(J)=0 ELSE Y_N_FLAG(J)=1 14650 GOSUB *DISP_COM 14700 RETURN 14750 *設定変更 14800 IF DF$(J)="yes" THEN 14850 DF$(J)="no" 14900 Y_N_FLAG(J)=0 14950 ELSE 15000 DF$(J)="yes" 15050 Y_N_FLAG(J)=1 15100 ENDIF 15150 RETURN 15200 *DISP_COM 15250 IF J=100 THEN GOSUB *SW100 : RETURN 15300 IF J<=30 THEN 15350 ELSE 15450 15350 ON J+1 GOSUB *SW0,*SW1,*SW2,*SW3,*SW4,*SW5,*SW6,*SW7,*SW8,*SW9,*SW10,*SW11,*SW12,*SW13,*SW14,*SW15,*SW16,*SW17,*SW18,*SW19,*SW20,*SW21,*SW22,*SW23,*SW24,*SW25,*SW26,*SW27,*SW28,*SW29,*SW30 15400 RETURN 15450 ON J-30 GOSUB *SW31,*SW32,*SW33,*SW34,*SW35,*SW36,*SW37,*SW38,*SW39,*SW40,*SW41,*SW42,*SW43,*SW44,*SW45,*SW46,*SW47,*SW48 15500 RETURN 15550 *キー入力 15600 GOSUB *キー入力1 15650 GOSUB *DISP_COM 15700 RETURN 15750 *キー入力1 15800 LOCATE 0,23:PRINT KACNV$(RIGHT$(MES$(J),LEN(MES$(J))-2));" "; 15850 X=0:Y=23:M=79:C=205:GOSUB *ボックス 15900 LINE INPUT DUMMY$ 15950 IF DUMMY$<>"" THEN 16000 DF$(J)=":"+DUMMY$ 16050 ENDIF 16100 RETURN 16550 *設定画面表示 16600 CLS 1 : CLS 3 16650 LOCATE 0,1 16700 LOCATE 63, 1 : PRINT "更新して終了"; 16750 LOCATE 25, 1 : PRINT "更新せずに終了"; 16800 X=63:Y=1:M=12:C=203:GOSUB *ボックス 16850 X=25:Y=1:M=14:C=204:GOSUB *ボックス 16900 *設定画面1 16950 CLS 1 17000 COLOR 7,%200,,4 17050 LOCATE 2, 2 : PRINT "ドライブ，ディレクトリを指定してください。" 17100 WY=3 : GOSUB *SW100 17150 WY=4 : GOSUB *SW1 17200 WY=5 : GOSUB *SW3 17250 LOCATE 2, 6 : PRINT "ファイルを指定してください。(ﾜｲﾙﾄﾞｶｰﾄﾞ使用可)" 17300 WY=7 : GOSUB *SW16 17350 WY=8 : GOSUB *SW15 17400 LOCATE 2, 9 : PRINT "メッセージ出力先をフルパスで指定してください。" 17450 WY=10 : GOSUB *SW0 17500 LOCATE 2,11 : PRINT "ファイルサイズ指定オプション(1Kバイト単位で指定)" 17550 WY=12 : GOSUB *SW17 17600 WY=13 : GOSUB *SW36 17650 LOCATE 2,14 : PRINT "処理内容を選択してください。" 17700 WY=15 : GOSUB *SW2 17750 WY=16 : GOSUB *SW4 17800 WY=17 : GOSUB *SW37 : GOSUB *SW38 17850 LOCATE 2,18 : PRINT "オプションを選択してください。" 17900 WY=19 : GOSUB *SW32 17950 WY=20 : GOSUB *SW39 : GOSUB *SW29 18000 WY=21 : GOSUB *SW20 : GOSUB *SW22 : GOSUB *SW24 18050 WY=22 : GOSUB *SW21 : GOSUB *SW23 : GOSUB *SW25 18100 LOCATE 71,22 : PRINT "次頁"; 18150 X=71:Y=22:M=4:C=204:GOSUB *ボックス 18200 COLOR 7,%200,,0 18250 RETURN 18300 *設定画面2 18350 CLS 1 18400 COLOR 3,%200,,4 18450 LOCATE 2, 2 : PRINT "この頁のｵﾌﾟｼｮﾝ設定はCATLOGのﾏﾆｭｱﾙをよく読んで理解した上でやってね。(^^)" 18500 COLOR 7,%200,,4 18550 WY=3 : GOSUB *SW7 : GOSUB *SW8 18600 WY=4 : GOSUB *SW9 : GOSUB *SW10 : GOSUB *SW26 18650 WY=5 : GOSUB *SW13 : GOSUB *SW5 : GOSUB *SW6 18700 LOCATE 2, 6 : PRINT "検索系オプション" 18750 WY=7 : GOSUB *SW14 18800 WY=8 : GOSUB *SW30 18850 LOCATE 2, 9 : PRINT "収集系オプション(日付入力はyy年mm月dd日をyymmddの形式で入力する)" 18900 WY=10 : GOSUB *SW18 : GOSUB *SW19 18950 WY=11 : GOSUB *SW35 19000 WY=12 : GOSUB *SW46 19050 LOCATE 2,13 : PRINT "削除系オプション＜★ＤＡＮＧＥＲ★＞" 19100 WY=14 : GOSUB *SW27 : GOSUB *SW40 19150 WY=15 : GOSUB *SW41 19200 WY=16 : GOSUB *SW28 19250 LOCATE 2,17 : PRINT "その他のオプション" 19300 WY=18 : GOSUB *SW33 : GOSUB *SW31 19350 WY=19 : GOSUB *SW44 : GOSUB *SW45 19400 WY=20 : GOSUB *SW43 19450 WY=21 : GOSUB *SW42 19500 WY=22 : GOSUB *SW47 19550 LOCATE 71,22 : PRINT "前頁"; 19600 X=71:Y=22:M=4:C=204:GOSUB *ボックス 19650 COLOR 7,%200,,0 19700 RETURN 19750 *SW100 19800 X=5:Y=WY:M=70: GOSUB *ボックス_P 19850 LOCATE 5,WY : PRINT "入力ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(100) 19900 C=205:GOSUB *ボックス 19950 RETURN 20000 *SW1 20050 X=5:Y=WY:M=70: GOSUB *ボックス_P 20100 LOCATE 5,WY : PRINT "出力ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(1) 20150 C=205:GOSUB *ボックス 20200 RETURN 20250 *SW3 20300 X=5:Y=WY:M=3: GOSUB *ボックス_P 20350 X=9: M=66: GOSUB *ボックス_P 20400 IF Y_N_FLAG(3)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 20450 LOCATE 5,WY : PRINT DUM$;" 作業ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(3) 20500 X=5: M=3:C=CL: GOSUB *ボックス 20550 X=9: M=66:C=206:GOSUB *ボックス 20600 RETURN 20650 *SW16 20700 X=5:Y=WY:M=3: GOSUB *ボックス_P 20750 X=9: M=66: GOSUB *ボックス_P 20800 IF Y_N_FLAG(16)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 20850 LOCATE 5,WY : PRINT DUM$;" 検索するファイル";DF$(16) 20900 X=5: M=3:C=CL: GOSUB *ボックス 20950 X=9: M=66:C=206:GOSUB *ボックス 21000 RETURN 21050 *SW15 21100 X=5:Y=WY:M=3: GOSUB *ボックス_P 21150 X=9: M=66: GOSUB *ボックス_P 21200 IF Y_N_FLAG(15)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 21250 LOCATE 5,WY : PRINT DUM$;" 検索しないファイル";DF$(15) 21300 X=5: M=3:C=CL: GOSUB *ボックス 21350 X=9: M=66:C=CL: GOSUB *ボックス 21400 RETURN 21450 *SW0 21500 COLOR 6,%200,,4 21550 X=5:Y=WY:M=3: GOSUB *ボックス_P 21600 X=9: M=66: GOSUB *ボックス_P 21650 IF Y_N_FLAG(0)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 21700 LOCATE 5,WY : PRINT DUM$;" メッセージ出力ﾌｧｲﾙ名";DF$(0) 21750 X=5: M=3:C=CL: GOSUB *ボックス 21800 X=9: M=66:C=206:GOSUB *ボックス 21850 COLOR 7,%200,,4 21900 RETURN 21950 *SW2 22000 X=24:Y=WY:M=12: GOSUB *ボックス_P 22050 X=37: M=12: GOSUB *ボックス_P 22100 COLOR 6,%200,,4 22150 LOCATE 5,WY : PRINT "インデックスモード"; 22200 COLOR 7,%200,,4 22250 PRINT " 全体でひとつフォーラム毎" 22300 IF DF$(2)=":1" THEN CL=207:CE=202 ELSE CL=202:CE=207 22350 X=24: M=12:C=CL:GOSUB *ボックス 22400 X=37: M=12:C=CE:GOSUB *ボックス 22450 RETURN 22500 *SW4 22550 X=37:Y=WY:M=4: GOSUB *ボックス_P 22600 X=42: M=6: GOSUB *ボックス_P 22650 COLOR 6,%200,,4 22700 LOCATE 5,WY : PRINT "メールはひとつのファイルで処理"; 22750 COLOR 7,%200,,4 22800 PRINT " するしない" 22850 IF Y_N_FLAG(4)=1 THEN CL=207:CE=202 ELSE CL=202:CE=207 22900 X=37: M=4:C=CL: GOSUB *ボックス 22950 X=42: M=6:C=CE: GOSUB *ボックス 23000 RETURN 23050 *SW37 23100 X=5:Y=WY:M=25: GOSUB *ボックス_P 23150 LOCATE 5,WY : PRINT "発言番号001で新ﾌｧｲﾙを作る" 23200 IF Y_N_FLAG(37)=1 THEN CL=207 ELSE CL=202 23250 C=CL: GOSUB *ボックス 23300 RETURN 23350 *SW38 23400 X=32:Y=WY:M=32: GOSUB *ボックス_P 23450 LOCATE 32,WY : PRINT "より小さな発言番号で新ﾌｧｲﾙを作る" 23500 IF Y_N_FLAG(38)=1 THEN CE=207 ELSE CE=202 23550 C=CE: GOSUB *ボックス 23600 RETURN 23650 *SW32 23700 X=5:Y=WY:M=36: GOSUB *ボックス_P 23750 LOCATE 5,WY : PRINT "ＬＨＡ圧縮ファイルを解凍しながら実行" 23800 IF Y_N_FLAG(32)=1 THEN CL=207 ELSE CL=202 23850 C=CL:GOSUB *ボックス 23900 RETURN 23950 *SW20 24000 X=5:Y=WY:M=20: GOSUB *ボックス_P 24050 LOCATE X,WY : PRINT "ＨＰは整理しない"; 24100 IF Y_N_FLAG(20)=1 THEN CL=207 ELSE CL=202 24150 C=CL:GOSUB *ボックス 24200 RETURN 24250 *SW21 24300 X=5:Y=WY:M=20: GOSUB *ボックス_P 24350 LOCATE X,WY : PRINT "PATIOは整理しない"; 24400 IF Y_N_FLAG(21)=1 THEN CL=207 ELSE CL=202 24450 C=CL:GOSUB *ボックス 24500 RETURN 24550 *SW22 24600 X=27:Y=WY:M=20: GOSUB *ボックス_P 24650 LOCATE X,WY : PRINT "会議室は整理しない"; 24700 IF Y_N_FLAG(22)=1 THEN CL=207 ELSE CL=202 24750 C=CL:GOSUB *ボックス 24800 RETURN 24850 *SW23 24900 X=27:Y=WY:M=20: GOSUB *ボックス_P 24950 LOCATE X,WY : PRINT "ＭＡＩＬは整理しない"; 25000 IF Y_N_FLAG(23)=1 THEN CL=207 ELSE CL=202 25050 C=CL:GOSUB *ボックス 25100 RETURN 25150 *SW24 25200 X=49:Y=WY:M=20: GOSUB *ボックス_P 25250 LOCATE X,WY : PRINT "ＬＩＢは整理しない"; 25300 IF Y_N_FLAG(24)=1 THEN CL=207 ELSE CL=202 25350 C=CL:GOSUB *ボックス 25400 RETURN 25450 *SW25 25500 X=49:Y=WY:M=20: GOSUB *ボックス_P 25550 LOCATE X,WY : PRINT "ＢＩＬＬは整理しない"; 25600 IF Y_N_FLAG(25)=1 THEN CL=207 ELSE CL=202 25650 C=CL:GOSUB *ボックス 25700 RETURN 25750 *SW39 25800 X=5:Y=WY:M=36: GOSUB *ボックス_P 25850 LOCATE 5,WY : PRINT "｢*****log整理｣を入れない"; 25900 IF Y_N_FLAG(39)=1 THEN CL=207 ELSE CL=202 25950 C=CL:GOSUB *ボックス 26000 RETURN 26050 *SW7 26100 X=5:Y=WY:M=34: GOSUB *ボックス_P 26150 IF Y_N_FLAG(7)=1 THEN CL=207 ELSE CL=202 26200 LOCATE 5,WY : PRINT "処理を第２段階で中断する" 26250 C=CL:GOSUB *ボックス 26300 RETURN 26350 *SW8 26400 X=41:Y=WY:M=34: GOSUB *ボックス_P 26450 IF Y_N_FLAG(8)=1 THEN CE=207 ELSE CE=202 26500 LOCATE 41,WY : PRINT "中断した処理を続行する" 26550 C=CE:GOSUB *ボックス 26600 RETURN 26650 *SW9 26700 X=5:Y=WY:M=23: GOSUB *ボックス_P 26750 IF Y_N_FLAG(9)=1 THEN CL=207 ELSE CL=202 26800 LOCATE 5,WY : PRINT "全ての質問にYESと答える" 26850 C=CL:GOSUB *ボックス 26900 RETURN 26950 *SW10 27000 X=30:Y=WY:M=22: GOSUB *ボックス_P 27050 IF Y_N_FLAG(10)=1 THEN CE=207 ELSE CE=202 27100 LOCATE 30,WY : PRINT "全ての質問にNOと答える" 27150 C=CE:GOSUB *ボックス 27200 RETURN 27250 *SW26 27300 X=54:Y=WY:M=21: GOSUB *ボックス_P 27350 IF Y_N_FLAG(26)=1 THEN CL=207 ELSE CL=202 27400 LOCATE 54,WY : PRINT "全部引用発言とする" 27450 C=CL:GOSUB *ボックス 27500 RETURN 27550 *SW13 27600 X=5:Y=WY:M=22: GOSUB *ボックス_P 27650 IF Y_N_FLAG(13)=1 THEN CL=207 ELSE CL=202 27700 LOCATE 5,WY : PRINT "CATLOG.DONを作らない" 27750 C=CL:GOSUB *ボックス 27800 RETURN 27850 *SW5 27900 X=29:Y=WY:M=22: GOSUB *ボックス_P 27950 IF Y_N_FLAG(5)=1 THEN CE=207 ELSE CE=202 28000 LOCATE 29,WY : PRINT "静かにモード" 28050 C=CE:GOSUB *ボックス 28100 RETURN 28150 *SW6 28200 X=53:Y=WY:M=22: GOSUB *ボックス_P 28250 IF Y_N_FLAG(6)=1 THEN CQ=207 ELSE CQ=202 28300 LOCATE 53,WY : PRINT "だまれモード" 28350 C=CQ:GOSUB *ボックス 28400 RETURN 28450 *SW14 28500 X=5:Y=WY:M=70: GOSUB *ボックス_P 28550 IF Y_N_FLAG(14)=1 THEN CL=207 ELSE CL=202 28600 LOCATE 5,WY : PRINT "全ファイルを検索対象とする(前頁のｵﾌﾟｼｮﾝより優先します)遅くなるよ(^^;)" 28650 C=CL:GOSUB *ボックス 28700 RETURN 28750 *SW30 28800 X=5:Y=WY:M=70: GOSUB *ボックス_P 28850 IF Y_N_FLAG(30)=1 THEN CL=207 ELSE CL=202 28900 LOCATE 5,WY : PRINT "サブ･ディレクトリの検索をおこなわない" 28950 C=CL:GOSUB *ボックス 29000 RETURN 29050 *SW18 29100 X=5:Y=WY:M=3 : GOSUB *ボックス_P 29150 X=9: M=30: GOSUB *ボックス_P 29200 IF Y_N_FLAG(18)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 29250 LOCATE 5,WY : PRINT USING "& & &&年&&月&&日以降の発言収集";DUM$,MID$(DF$(18),2,2),MID$(DF$(18),4,2),MID$(DF$(18),6,2) 29300 X=5: M=3 :C=CL: GOSUB *ボックス 29350 X=9: M=30: GOSUB *ボックス 29400 RETURN 29450 *SW19 29500 X=41:Y=WY:M=3 : GOSUB *ボックス_P 29550 X=45: M=30: GOSUB *ボックス_P 29600 IF Y_N_FLAG(19)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 29650 LOCATE 41,WY : PRINT USING "& & &&年&&月&&日以前の発言収集";DUM$,MID$(DF$(19),2,2),MID$(DF$(19),4,2),MID$(DF$(19),6,2) 29700 X=41: M=3 :C=CL:GOSUB *ボックス 29750 X=45: M=30: GOSUB *ボックス 29800 RETURN 29850 *SW35 29900 X=5:Y=WY:M=3 : GOSUB *ボックス_P 29950 X=9: M=66: GOSUB *ボックス_P 30000 IF Y_N_FLAG(35)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 30050 LOCATE 5,WY : PRINT DUM$;" ＩＤの発言収集(複数指定可)";DF$(35) 30100 X=5: M=3 :C=CL: GOSUB *ボックス 30150 X=9: M=66: GOSUB *ボックス 30200 RETURN 30250 *SW46 30300 X=5:Y=WY:M=3 : GOSUB *ボックス_P 30350 X=9: M=66: GOSUB *ボックス_P 30400 IF Y_N_FLAG(46)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 30450 LOCATE 5,WY : PRINT DUM$;" 整理済のﾌｧｲﾙからＩＤで発言収集";DF$(46) 30500 X=5: M=3 :C=CL: GOSUB *ボックス 30550 X=9: M=66: GOSUB *ボックス 30600 RETURN 30650 *SW17 30700 X=5:Y=WY:M=3: GOSUB *ボックス_P 30750 X=9: M=66: GOSUB *ボックス_P 30800 IF Y_N_FLAG(17)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 30850 LOCATE 5,WY : PRINT DUM$;" テンポラリﾌｧｲﾙｻｲｽﾞ(無指定で10240KB)";DF$(17) 30900 X=5: M=3 :C=CL: GOSUB *ボックス 30950 X=9: M=66: GOSUB *ボックス 31000 RETURN 31050 *SW36 31100 X=5:Y=WY:M=3: GOSUB *ボックス_P 31150 X=9: M=66: GOSUB *ボックス_P 31200 IF Y_N_FLAG(36)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 31250 LOCATE 5,WY : PRINT DUM$;" ひとつのﾌｧｲﾙｻｲｽﾞ(無指定で800KB)";DF$(36) 31300 X=5: M=3 :C=CL: GOSUB *ボックス 31350 X=9: M=66: GOSUB *ボックス 31400 RETURN 31450 *SW27 31500 X=5:Y=WY:M=34: GOSUB *ボックス_P 31550 IF Y_N_FLAG(27)=1 THEN CL=207 ELSE CL=202 31600 LOCATE 5,WY : PRINT "今日より古いﾌｧｲﾙを削除／危険(~~)" 31650 C=CL:GOSUB *ボックス 31700 RETURN 31750 *SW40 31800 X=41:Y=WY:M=34: GOSUB *ボックス_P 31850 IF Y_N_FLAG(40)=1 THEN CL=207 ELSE CL=202 31900 LOCATE 41,WY : PRINT "- FFMHOB MES( )の行を削除" 31950 C=CL:GOSUB *ボックス 32000 RETURN 32050 *SW41 32100 X=5:Y=WY:M=34: GOSUB *ボックス_P 32150 IF Y_N_FLAG(41)=1 THEN CL=207 ELSE CL=202 32200 LOCATE 5,WY : PRINT "削除した発言の表題を表示する" 32250 C=CL:GOSUB *ボックス 32300 RETURN 32350 *SW28 32400 X=5:Y=WY:M=3: GOSUB *ボックス_P 32450 X=9: M=66: GOSUB *ボックス_P 32500 IF Y_N_FLAG(28)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 32550 LOCATE 5,WY : PRINT DUM$;" 削除から除くファイル名(複数指定可)";DF$(28); 32600 X=5: M=3 :C=CL: GOSUB *ボックス 32650 X=9: M=66: GOSUB *ボックス 32700 RETURN 32750 *SW33 32800 X=5:Y=WY:M=36: GOSUB *ボックス_P 32850 IF Y_N_FLAG(33)=1 THEN CL=207 ELSE CL=202 32900 LOCATE 5,WY : PRINT "ﾛｸﾞを入力ﾃﾞｨﾚｸﾄﾘ毎に凍結しながら実行"; 32950 C=CL:GOSUB *ボックス 33000 RETURN 33050 *SW43 33100 X=5:Y=WY:M=3: GOSUB *ボックス_P 33150 X=9:Y=WY:M=66: GOSUB *ボックス_P 33200 IF Y_N_FLAG(43)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 33250 LOCATE 5,WY : PRINT DUM$;" ﾌｧｲﾙと会議室の対応ﾌｧｲﾙ(ﾌﾙﾊﾟｽのﾌｧｲﾙ名)";DF$(43) 33300 X=5: M=3 :C=CL: GOSUB *ボックス 33350 X=9: M=66: GOSUB *ボックス 33400 RETURN 33450 *SW42 33500 X=5:Y=WY:M=3: GOSUB *ボックス_P 33550 X=9: M=66: GOSUB *ボックス_P 33600 IF Y_N_FLAG(42)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 33650 LOCATE 5,WY : PRINT DUM$;" ﾃﾞｰﾀﾗｲﾌﾞﾗﾘを別に整理:出力ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(42); 33700 X=5: M=3 :C=CL: GOSUB *ボックス 33750 X=9: M=66: GOSUB *ボックス 33800 RETURN 33850 *SW44 33900 X=5:Y=WY:M=36: GOSUB *ボックス_P 33950 IF Y_N_FLAG(44)=1 THEN CL=207 ELSE CL=202 34000 LOCATE 5,WY : PRINT "CATLOG整理ﾌｧｲﾙからｲﾝﾃﾞｯｸｽを作る"; 34050 C=CL:GOSUB *ボックス 34100 RETURN 34150 *SW45 34200 X=43:Y=WY:M=32: GOSUB *ボックス_P 34250 IF Y_N_FLAG(45)=1 THEN CL=207 ELSE CL=202 34300 LOCATE 43,WY : PRINT "ID/ﾊﾝﾄﾞﾙ対応ファイルを作る"; 34350 C=CL:GOSUB *ボックス 34400 RETURN 34450 *SW31 34500 X=43:Y=WY:M=32: GOSUB *ボックス_P 34550 IF Y_N_FLAG(31)=1 THEN CL=207 ELSE CL=202 34600 LOCATE 43,WY : PRINT "ﾛｸﾞ表示しながら実行する"; 34650 C=CL:GOSUB *ボックス 34700 RETURN 34750 *SW47 34800 IF DF$(47)=":1" THEN CE=207 : CQ=202 ELSE CE=202 : CQ=207 34850 X=5:Y=WY:M=3: GOSUB *ボックス_P 34900 X=34: M=8 : GOSUB *ボックス_P 34950 X=44: M=8 : GOSUB *ボックス_P 35000 IF Y_N_FLAG(47)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 35050 LOCATE 5,WY : PRINT DUM$; 35100 COLOR 6 : PRINT " ＦＡＰＸのログ保存モード"; 35150 COLOR 7 : PRINT " 圧縮なし圧縮あり"; 35200 X=5: M=3 :C=CL: GOSUB *ボックス 35250 X=34: M=8 :C=CE:GOSUB *ボックス 35300 X=44: M=8 :C=CQ:GOSUB *ボックス 35350 RETURN 35400 *SW29 35450 X=45:Y=WY:M=24: GOSUB *ボックス_P 35500 IF Y_N_FLAG(29)=1 THEN CL=207 ELSE CL=202 35550 LOCATE 45,WY : PRINT "削除発言は整理に含めない"; 35600 C=CL:GOSUB *ボックス 35650 RETURN 35700 '未サポート 35750 *SW11 35800 *SW12 35850 *SW34 35900 *SW48 35950 RETURN 36000 *ボックス:LINE (8*X-2,19*Y)-(8*X+8*M,19*Y+17),OR,%C,BF : RETURN 36050 *ボックス_P:LINE (8*X-2,19*Y)-(8*X+8*M,19*Y+17),PSET,%200,BF : RETURN 36100 STOP 36150 *更新処理 36200 KILL "..\CATLOG.DEF" 36250 OPEN "..\CATLOG.DEF" FOR OUTPUT AS #1 36300 PRINT #1,";DEFGEN生成ファイル" 36350 FOR I=0 TO 100 36400 IF Y_N_FLAG(I)<>-1 THEN 36450 IF Y_N_FLAG(I)>0 THEN 36500 IF LEFT$(DF$(I),1)=":" THEN 36550 DUMMY$=TB$+CMD$(I)+DF$(I)+TB$+MES$(I) 36600 ELSE 36650 DUMMY$=TB$+CMD$(I)+TB$+MES$(I) 36700 ENDIF 36750 ELSE 36800 IF LEFT$(DF$(I),1)=":" THEN 36850 DUMMY$=";"+TB$+CMD$(I)+DF$(I)+TB$+MES$(I) 36900 ELSE 36950 DUMMY$=";"+TB$+CMD$(I)+TB$+MES$(I) 37000 ENDIF 37050 ENDIF 37100 PRINT #1,DUMMY$ 37150 ENDIF 37200 NEXT I 37250 CLOSE #1 37300 RETURN 37350 *中断処理 37400 IF DG_FLAG=0 THEN 37450 NAME "..\CATLOGDF.ORG" AS "..\CATLOG.DEF" 37500 ENDIF 37550 RETURN 37600 *元DEFチェック 37700 FOR I=0 TO DF_MAX 37750 IF LEFT$(MOT$(I),1)="-" THEN 37800 YES_NO_FLAG=1 37850 P0=INSTR(MOT$(I),":") 37900 P1=INSTR(MOT$(I),";") 37950 IF P1<>0 AND P1<P0 THEN P0=0 38000 IF P0<>0 THEN 38050 C0$=LEFT$(MOT$(I),P0-1) 38100 IF P1=0 THEN 38150 C1$=RIGHT$(MOT$(I),LEN(MOT$(I))-P0+1) 38160 C2$="" 38200 ELSE 38250 C1$=MID$(MOT$(I),P0,P1-P0) 38260 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 38300 ENDIF 38350 ELSE 38400 C1$="yes" 38450 IF P1=0 THEN 38500 C0$=MOT$(I) 38510 C2$="" 38550 ELSE 38600 C0$=LEFT$(MOT$(I),P1-1) 38610 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 38650 ENDIF 38700 ENDIF 38750 ELSE 38800 IF LEFT$(MOT$(I),1)=";" AND MID$(MOT$(I),2,1)="-" THEN 38850 YES_NO_FLAG=0 38900 MOT$(I)=RIGHT$(MOT$(I),LEN(MOT$(I))-1) 38950 P0=INSTR(MOT$(I),":") 39000 P1=INSTR(MOT$(I),";") 39050 IF P1<>0 AND P1<P0 THEN P0=0 39100 IF P0<>0 THEN 39150 C0$=LEFT$(MOT$(I),P0-1) 39200 IF P1=0 THEN 39250 C1$=RIGHT$(MOT$(I),LEN(MOT$(I))-P0+1) 39260 C2$="" 39300 ELSE 39350 C1$=MID$(MOT$(I),P0,P1-P0) 39360 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 39400 ENDIF 39450 ELSE 39500 C1$="no" 39550 IF P1=0 THEN 39600 C0$=RIGHT$(MOT$(I),LEN(MOT$(I))-1) 39610 C2$="" 39650 ELSE 39700 C0$=LEFT$(MOT$(I),P1-1) 39710 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 39750 ENDIF 39800 ENDIF 39850 ENDIF 39900 ENDIF 39950 GOSUB *コマンド照合 40000 ' PRINT C0$,C1$,P0,P1 : PRINT CMD$(J),DF$(J),MES$(J) 40050 NEXT I 40100 RETURN 40150 *コマンド照合 40200 J=0 40250 WHILE CMD$(J)<>C0$ 40300 J=J+1 40350 WEND 40400 IF NOT(YES_NO_FLAG=0 AND Y_N_FLAG(J)=1) THEN 40450 DF$(J)=C1$ 40550 Y_N_FLAG(J)=YES_NO_FLAG 40600 ENDIF 40650 RETURN 40700 *スイッチ拡張対策 40750 J=0 40800 WHILE Y_N_FLAG(J)<>-1 40850 J=J+1 40900 WEND 40940 LOCATE 18,23 : PRINT 40950 LOCATE 18,23 : PRINT USING "###番目に@を追加します";J,C0$; 41000 CMD$(J)=C0$ : DF$(J)=C1$ : MES$(J)=C2$ : Y_N_FLAG(J)=0 41050 LOCATE 5,18: PRINT "???番目に-Xxxx-Xxxxxを追加しますと下に表示された時には、DEFGENの" 41100 LOCATE 5,19: PRINT "ｻﾎﾟｰﾄｽｲｯﾁ以外のｽｲｯﾁが元DEFにあった場合です。この場合でも元DEFに" 41150 LOCATE 5,20: PRINT "あったｽｲｯﾁを新DEFにCOPYしますので、ｻﾎﾟｰﾄするまではｴﾃﾞｨﾀで修正して" 41200 LOCATE 5,21: PRINT "という限定付きですが使用可能です。" 41250 RETURN 41300 *コマンドリストREAD 41350 I=0 41400 OPEN "DEFGEN_D.DAT" FOR INPUT AS #1 41450 WHILE NOT(EOF(1)) 41500 INPUT #1,DUMMY$ 41550 Y_N_FLAG(I)=VAL(DUMMY$) 41600 INPUT #1,CMD$(I),DF$(I),MES$(I) 41650 IF CMD$(I)="-I" THEN 41700 SWAP Y_N_FLAG(I),Y_N_FLAG(100):SWAP CMD$(I),CMD$(100) 41750 SWAP DF$(I),DF$(100) :SWAP MES$(I),MES$(100) 41850 ELSE 41900 I=I+1 41950 ENDIF 42000 WEND 42050 CML_MAX=I-1 42100 CLOSE #1 42150 RETURN 42200 *元DEFファイル読み込み 42250 LOCATE 18,22 : PRINT "元DEFファイルを読み込んでいます"; 42300 DG_FLAG=0 42350 OPEN "..\CATLOG.DEF" FOR INPUT AS #1 42400 LINE INPUT #1,DUMMY$ 42450 IF DUMMY$=";DEFGEN生成ファイル" THEN 42500 DG_FLAG=-1 : I=0 42550 ELSE 42600 IF LEFT$(DUMMY$,1)="-" THEN 42650 MOT$(0)=DUMMY$ : I=1 42700 ELSE 42750 IF LEFT$(MOT$(I),1)=";" AND MID$(MOT$(I),2,1)="-" THEN 42800 MOT$(0)=DUMMY$ : I=1 42850 ENDIF 42900 I=0 42950 ENDIF 43000 ENDIF 43050 WHILE NOT(EOF(1)) 43100 LINE INPUT #1,DUMMY$ 43150 IF LEFT$(DUMMY$,1)="-" OR (LEFT$(DUMMY$,1)=";" AND MID$(DUMMY$,2,1)="-") THEN 43160 A=INSTR(DUMMY$,"-") 43170 IF MID$(DUMMY$,A+1,1)>="A" AND MID$(DUMMY$,A+1,1)<="Z" THEN 43200 MOT$(I)=DUMMY$ : I=I+1 43210 ' PRINT DUMMY$ : A$=INPUT$(1) 43240 ENDIF 43250 ENDIF 43300 WEND 43350 DF_MAX=I-1 43400 CLOSE #1 43450 IF DG_FLAG=0 THEN 43500 NAME "..\CATLOG.DEF" AS "..\CATLOGDF.ORG" 43550 ' NAME "..\CATLOGDF.ORG" AS "..\CATLOG.DEF" 43600 ENDIF 43650 GOSUB *元DEFチェック 43700 RETURN 43750 *元DEFなし 44600 RETURN 44610 *強制サポートセット 44620 Y_N_FLAG(1)=1 44630 Y_N_FLAG(2)=1 44635 Y_N_FLAG(100)=1 44640 Y_N_FLAG(48)=0 44645 RETURN 44650 *開始画面設定 44700 CLS 44750 PLAY ON 44800 PLAY "@51T180C8DE2DC8.R16C8DEDC8D2" 44850 PLAY "@15" 44900 PAGE=1 44950 LOCATE 0,0 45000 PRINT " ＣＡＴＬＯＧ小判鮫ソフト(^^;) ＤＥＦＧＥＮＥＲＡＴＯＲ";VER$;" PED00201 ＪＩＮＸ" 45050 LINE (0,0)-(639,19),OR,%201,BF 45100 LOCATE 0,2 45150 PRINT "このソフトはCATLOG.DEFをとりあえず使える状態にセットアップするものです。" 45200 PRINT "山先さんから本家DEF設定プログラムが発表されるまでのつなぎですので、エディタを" 45250 PRINT "自由に使えるスキルの持ち主には無用の物です。" 45300 PRINT "選択肢の用意されている項目は、マウスで希望の側を左クリックしてください。" 45350 PRINT "ファイル名を指定する必要のある項目では入力域にマウスを移動し左クリック後、" 45400 PRINT "キーボードからドライブ名：ディレクトリ名を入力してください。" 45450 COLOR 5,,,4 45500 LOCATE 3,9 : PRINT "☆★設定画面のルール(^^)/~" 45550 COLOR 7,,,0 45600 LOCATE 5,10: PRINT "必須設定項目を示します。この設定抜きにはCATLOGは動きません。" 45650 X=5:Y=10:M=70:C=205:GOSUB *ボックス 45700 LOCATE 5,11: PRINT "設定した方が望ましい項目を示します。" 45750 X=5:Y=11:M=70:C=206:GOSUB *ボックス 45800 LOCATE 7,12: PRINT "OFFにした場合にはCATLOGの初期値(ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ等)になります" 45850 X=7:Y=12:M=56:C=206:GOSUB *ボックス 45900 LOCATE 5,13: PRINT "選択した時にこの色になります。" 45950 X=5:Y=13:M=70:C=207:GOSUB *ボックス 46000 LOCATE 5,14: PRINT "選択されてない場合の表示色です。" 46050 X=5:Y=14:M=70:C=202:GOSUB *ボックス 46100 LOCATE 5,15: PRINT "更新して終了更新せずに終了のいずれかを左ｸﾘｯｸで終了します。" 46150 X=5:Y=15:M=12:C=203:GOSUB *ボックス 46200 X=18:Y=15:M=14:C=204:GOSUB *ボックス 46250 LOCATE 5,16: PRINT "また右ｸﾘｯｸは更新せずに終了を左ｸﾘｯｸと同じ動きとなります。" 46300 X=18:Y=16:M=14:C=204:GOSUB *ボックス 46350 FOR I=0 TO 100 : Y_N_FLAG(I)=-1 : NEXT I 46400 RETURN 46450 *パレット設定 46500 OPEN "DEFGENPT.DAT" FOR INPUT AS #1 46550 I=200 46600 WHILE NOT(EOF(1)) 46650 LINE INPUT #1,DUMMY$ 46700 IF LEFT$(DUMMY$,1)<>";" THEN 46750 POI1=INSTR(DUMMY$,","):POI2=INSTR(POI1+1,DUMMY$,","):POI3=INSTR(POI2+1,DUMMY$,",") 46800 GREEN=VAL(LEFT$(DUMMY$,POI1-1)) 46850 RED=VAL(MID$(DUMMY$,POI1+1,POI2-POI1-1)) 46900 BLUE=VAL(MID$(DUMMY$,POI2+1,POI3-POI2-1)) 46950 PALETTE I,[GREEN,RED,BLUE] 47000 I=I+1 47050 ENDIF 47100 WEND 47150 CLOSE #1 47200 RETURN 47250 *設定不良 47300 PRINT "DEFGENのプログラムのあるディレクトリに正しく設定してから再起動してください" 47350 PRINT : PRINT "プログラムは中断しました＜何かキーを押して下さい＞" 47400 A$=INPUT$(1) 47450 STOP 47500 *エラーやで 47550 IF ERR=63 AND ERL=42350 THEN RESUME *元DEFなし 47600 IF ERR=63 AND ERL=36200 THEN RESUME NEXT 47650 IF ERR=9 AND ERL=40250 THEN RESUME *スイッチ拡張対策 47700 IF ERR=9 AND ERL=40350 THEN RESUME *スイッチ拡張対策 47750 IF ERR=63 AND ERL=41400 THEN 47800 BEEP : CLS 47850 PRINT "DEFGEN_D.DAT(スイッチデータファイル)がありません｡" 47900 RESUME *設定不良 47950 ENDIF 48000 IF ERR=63 AND ERL=46500 THEN 48050 BEEP : CLS 48100 PRINT "DEFGENPT.DAT(パレット設定ファイル)がありません｡" 48150 RESUME *設定不良 48200 ENDIF 48250 PRINT USING "ERR=####### ERL=########";ERR,ERL 48300 STOP